home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #067 (1990-04)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #067 (1990-04)(Amiga User Group Deutschland e.V.).adf / Include / Parameters.i < prev    next >
Text File  |  1989-07-02  |  1KB  |  45 lines

  1.  
  2. {
  3.     Parameters.i
  4.         This is the stuff necessary for command line work, including
  5.     the Workbench message.
  6. }
  7.  
  8. {$I "Include/Ports.i"}
  9.  
  10. type
  11.     WBArg = Record
  12.     waLock : Address; { actually a File Lock of a directory }
  13.     waName : String;  { a file relative to that directory }
  14.     end;
  15.  
  16.     WBArgList = Array [1..100] of WBArg; { Only 1..smNumArgs are valid }
  17.     WBArgListPtr = ^WBArgList;
  18.  
  19.     WBStartup = Record
  20.     smMessage : Message;
  21.     smProcess : MsgPortPtr;
  22.     smSegment : Address;
  23.     smNumArgs : Integer;
  24.     smToolWindow : Address;
  25.     smArgList : WBArgListPtr;
  26.     end;
  27.     WBStartupPtr = ^WBStartup;
  28.  
  29. {
  30.     The following function just returns the Workbench message pointer.
  31. }
  32. Function GetStartupMsg() : WBStartupPtr;
  33.     external;
  34.  
  35. {
  36.     This procedure copies the requested parameter into the string S.
  37. S must already be allocated, of course.  Note that the parameters can
  38. come from the command line or from the Workbench message.  S will be
  39. a string of length 0 (in other words S^ = Chr(0)) if the parameter
  40. doesn't exist.
  41. }
  42. Procedure GetParam(n : Short; var S : String);
  43.     external;
  44.  
  45.